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Pech Ane lONe 
SPUT2 = HIGH LEVEL RELATIVE $PUT 
RMSPUTOPD2 = COMMON $PUT AND SUPDATE RELATIVE ROUTINE 
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SBEGIN RM2PUT,000,RMSRMS2,<RELATIVE SPECIFIC PUT> 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


:® * 
‘ft « 
:* * 
:* * 
ft * 
:® * 
** 0 * 
;t N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
;* ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
;* THEREOF may NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
;* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. * 
:* * 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
;* CORPORATION. x 
:* * 
:* * 
:* * 
:* * 
:* * 
:® * 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LARRARARARARASAAAAAARALAAAARESRRARRERESARSA RARE RR RRA RRR RR RR RR RR SARS EARS SS SO | 


§ Facility: RMS32 

Abstract: 

; This module provides relative file organization 
: specific processing for the $PUT function. 


; Environment: 
Star processor running Starlet exec. 


; Author: L. F. Laverdure Creation Date: 7-NOV-1977 
; Modified By: 


V03-019 JEJ0042 J E Johnson 21-Jun-1984 
Correct error in record locking code path that 
attempts to deallocate BDB twice if WAT bit is set 
and a locking error occurs. 


v03-018 DGB0016 Donald G. Blair 02-Mar-1984 
Allocate full- Length FIB toe support access mode 
aanerted files. 


v03-017 DASO001 David Sol gnon 25-Jul-1983 
Fix a bug introduced in V05-016 that broke BI journaling 
4 puts and updates. 


v03-016 KPLO005 Peter Lieberwirth 20-Jun-1983 
Change some references to JNLFLG to JNLFLG2. 
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v03-015 KPLO004 Peter Lieberwirth 26-May-1983 
Fix RJR references for new format. 


V03-014 JWHO206 grr y W. Horn LS Pig lars 
Fix bug in JWHO! which was causing a call to LOCK 
instead of QUERY_LOCK when WAT was specified for a $PUT. 


v03-013 KELG00S Peter Lieberwirt 30-Mar-1983 
P is used as a flag to AMSPUTUPD2 to indicate whether the 
operation is a PUT or an UPDATE. Due to an unrelated change, 
is flag was sometimes set incorrectly when the operation 
is a PUT. Fix this by plugging the AP. 


v03-012 RASO135 Ron $sh aef 17-Mar-1983 


Ooo 


COOCCCOCOCOCOOCSOSOOCOCOCOCOOCOCO OOOO OO OOOO OOOOOOoOOO 


Corrections to RASO132 for” registers and RJR$_ names. 
v03-011 peda n Schaefer 16-Mar-1983 
Merge SRMSRDEF inte SRJRDEF and revise the interface 
for RM$WRTJNL for easier use from ISAM. 
V03-010 JWHO192 Jeffrey W. Horn 28-Feb-1983 
Fix bucheck in spur with WAT option. 
V03-009 SPR52290 Jeffrey W. Horn 03-Jan-1983 
ein bugcheck in auto-extend with shared files. 
v03-008 KPLO002 Peter Lieberwirth 7-Nov-1982 
Fix RMSR name again. 
V03-007 JWHO121 dot iver W. Horn 04-Nov-1982 
Fix bug in journal logic that was causing non-journal 


SPUT to return a zero status. 


v03-006 KPLOO001 Peter Lieberwirth 26-0c t-1982 
Correct size of RJR overhead added to R3 for call to 
WRTJNL. Change RMSR names. 


V03-005 JWHO112 Jeffrey W. Horn 06-0c t-1982 
ne ge new RJR format. Put in code for RU 
ournal support. 


v03-004 KBT0129 Keith B. Thompson 20-Aug-1982 
Reorganize psects 


v03-003 KBT0117 Keith B. Thompson 6-Aug-1982 
Remove ref. to set_sifb_adr and correct jeff*s revision numbers 


V03-002 There was an un-audited change done by JWH some time 
around here to fix a bug introduced by JWH0001. 


v03-001 suncoor Jeff rey W. Horn 18-May-1982 
Put in code for BI an Al lournet support. 


v02-020 RAS0063 Ron Schaefer 29-Jan-1982 
Correct probes of the user's key and record buffers. 


v02-019 CDS0077 C. D. Saether 24-F eb-1981 10:35 
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115 ; If reall sequent tat file, s oe ty fore fo cache. 
118 ; Note tha s works correct byte fixed 
1 : Length records, with the ‘'buc et ze'' at one block. 
$ 118 : v02-018 cDs0076 C. D. Sae 07-0 t-1980 11:05 
120 ; Release auto-locked Aired y f pungetress. a “hid not release 
: } 1 3 it (because it was current record 
8 ! : V02-017 REFORMAT K. E. Kinnear 31-Jul-1980 9:05 
0000 125: v01=016 CDS0075 C. D. Saether 20-Jan-1980 11:40 
8888 ! § : Fix bug so manual Ly Leaked record is released on error. 
9000 128 ; v01-015 CD$0042 C. D. Saether 12-0¢t-1979 17:40 
44 ; 4 ; Update ebk correctly for seq file extend. 
$009 131: V01-014 JAK0020 J. A. Krycka 11-Sep-1979 10:00 
44 : ¢ 3 Remove network code. 
0000 134: v01-013 cos0024 C. D. Sae 27-Jul-79 5:0 
44 133 ; Fudge up code so it works ten shared fix lonael seq files. 
0000 137: v01-012 WSk0001 S. Koenig 22-Dec-1978 11:20 
8308 13 : Fixed bug Seeveurten x nek extend failed. 
0000 140: V01-011 RANO003 R. A. Newell 9-Nov-1978 10:56 
0000 141 ; File sharing code enhancements. 
0000 146 3-- 
0000 14 
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~SBTTL RMSPUT2 = HIGH LEVEL RELATIVE $PUT 


RMSPUT2 -- High Level Relative S$PUT. 
This module performs the following functions: 


Vs a RASEE TREC. PUT to gain access to the bucket ys a *€; 
and unlock ‘ any record automatically Locked. The unloc ing 
is deferred if key access and the record is the current recere 
to avoid opening a window where the record is unlocked while the 
bucket is being reaccessed. 


| 
2. If the return from RMS$GETREC2_PUT indicates that the desired | 
record is past the current end of file, calls RMSEXTEND2 to extend 
the file and tries again 
3. If manual locking is specified, the record to be written is locked, 
otherwise the routine merely checks that the record is not locked 
by another stream. If the record was not unlocked in rm$getrec2_put 
(unlock_rp still set), it is unlocked at this point. 


4. The record is checked for non-existence and if so the record is 
copied to the bucket buffer. 


5. Access to the bucket is released, causing the buffer to be written 
unless deferred write has been specified (at open time). 


Calling Sequence: 
Entered via case branch from RM$PUT at RMS$PUT2. 
Input Parameters: 


R11 impure area address 
R10 ifab addr 
R9 irab addr 
R8 rab addr 


Implicit Inputs: 
The contents of the rab and related irab and ifab. 
Output Parameters: 


R1 thru R7 destroyed 
RO status | 
| 


; Implicit Outputs: 

Various fields of the rab are filled in to reflect 
the status of the operation (see functional spec 
for details). 


The irab is similarly updated. 
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oo ———— 


a 


VOr~000 RMSPUTS = HIG 


FIC PUT 16*SEP=1984 01:04:54 VAX/VMS Macro v04-00 Pa | eet 
LEVEL RELATIVE $PUT gree abe forsestt PANS CRCTRAD PUY Rane ve 


Standard rms (see functional spec). 
Side Effects: 
none 
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FIC PuT i ot et 4 ES a AX/VMS Macro V04-00 Page 
LEVEL RELATIVE $PUT “SEP-1984 16:24:11 RMS.SRCIRM2PUT.MAR; 1 
RMS$PUT2:: 
$TSTPT PuUT2 
SCSHFLAGS LOCK ; require lock on bucket 
BBC WIFBSV_SEQFIL,(R10),10$ ; check if really sequential 
BISL2 at phe NOREAD ,R3 ; don't read block if really seq. 
$:  BSBW RMSGETREC2 Put ; go access bucket 
CHKERR: BLBS RO,10$ i; continue if success 
RW CHKEOF ; otherwise go check if EOF 


Handle record locking, if required. 


: f automatic locking (RABSV_ULK = 0) , need merely check that record 
3 s not locked since bucket Ts locked (and no other user could possibly 
; lock the record until the bucket is released). 


If manual unlocking (RABSV_ULK = 1), must lock the record. 
10$: BBS WIFBSV_NORECLK,(R10),CHKCTL; branch if no locking 
MOVL  IRBSL_RP(R9),RI ; get record # 
CLRL Re ; zero hi half 


If record was previously auto-locked and unlocking was deferred to avoid 
and unlocked record window, it is unlocked at this point. 


BBCC #IRBSV_UNLOCK_RP,(R9),20$ ; branch if already unlocked 
PUSHR #*M<R1,R2> 3; save these 
BSBW = RMSUNLOCK ; unlock the record 
1,R2> ; restore registers 
208: BBS #RABSV_ULK+ROP,(RB),LOCK; branch if manual Locking 
BSBW RMSQUERY_L ; O.k. to write? 
CMPW RO,#RMS$S_OK_RLK&“*XFFFF 0; only read allowed? 
BNEQ CHKLCK ; branch if not (so far so good) 
RMSERR RLK ; switch status to error 


: Handle error. 


oe ie [POS .CURBDB (AP) .R6 ; Update R4 in case BDB was released. 
CLEAN? OVL RO,R ; Save status code 


BBC #RABSV_ULK+ROP,(R8),10$ ; this record manually locked? 
SSB #IRBSV UNLOCK_RP, (R9) ; yes, make sure it’s released 
10$: BRW RMSCLN2_PUT ; go clean up 


: Manual locking. Must lock the record. 


LOCK: RMSLOCK 
CHKLCK: BLBC RO, CLEAN 

CM RO. #RMS$S_OK_WATO*XFFFF 
BNEQ  CHKCTL 


o lock record 
ranch on failure 
did we wait for it? 

branch if not 


seo 


03 6A se E1 
3 4 48 
FF93" 30 
D150 «EY 
09 6A 38 €0 
08 65 91 
04 12 
1) 68 24 €E1 Q 
5c O01 Be 8 
0086 0 
11 5 E9 0 
0 
1€ AB 95 «=O 
06 12 Q 
40 A9 O01 48 A9 C1 
Ag 4 
FF69" 31 
FF66" 31 6 
0 
0 
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i] 
A? 11 6 
827A BF 650 «BI 
7A is 
56 5 4 
FF52° 30 
71 5 E9 
6C AA 54 00 
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3; Lock routine stalled, this means that 
; released, go re-access bucket. 


SCSHFLAGS LOCK 
BBC #IFBSV_SEQFIL,(R10),108 ; 
BISL2 #CSHSM“NOREAD.RS 
10$: BSBW RMSGETREC2_ Put 
BLBC _—RO, CLEAN] 
: peeking all set 
3 eck fo 
CHKCTL: 
BBS #IFBSV_SEQFIL,(R10),10$ 
CMPB ss (R5) , MBLC $M_REC 
BNEQ 108 
10$: MOVL 
BSBW RM$PUTUPD2 
BLBC ~——-R7, 308 
ASSUME RABSC_SEQ EQ 0 
TSTB = RABSB_RAC(R8) 
BNEQ 20$ 
ADDL3 IRB$L_RP(R9) #1, 1RBSL_NR 
208: CLRL IRB$L~RP(R9) 
BRW Bnsal Se 
30$: BRW RMS$CLN2_PUT 


; Record already exists. 


ERRREX: 
REX ,R7 


RMSERR 
BRB CLEAN2 


SSEp=1986 fo: 


4:54 YAX/VMS Macro V04-00 
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the bucket was 


Page 


; require lock on bucket 

i; check if really sequential 

; don't read block if really seq. 
; go re-access bucket 

; get out on error 


r record already existent and if not, copy the record to the buffer. 


i if seq file no control byte 
; does record exist? 
ranch if not (ok to put) 


: b 
BBC #RABSV_UIF+ROP, (RB) , ERRREX: error unless uif bit 
n 


set 
3 dicate to PUTUPD2 this is a PUT 
3 ge copy record 
; Branch on error 


i sequential access? 
anch if not 


; br 
P(R9); yes - set nrp from rp + 1 


3 show no current record 
; go finish up 
; cvean up on error 


Declare error and go clean up. 


3; set error code 
; go clean up 


> Check if error from RM$GETREC2_PUT is due to eof, and if so extend the file. 


CHKEOF : 
CMPW = sa RO, ARMSS_EOF@*XFFFF 
BNEQ 108 
MOVL R2,R6 
BSBW = RMSLOCK_PROLOG 
BLBC ,10$ 
MOVL  R4,1FB$L_LOCK_BDB(R10) 


; Prolog is now interlocked 
; Check that extend is still 


required, 


; is error = eof? 
; branch if not 

; save desired hi vbn + 1 
; lock vbn 

; branch on error 

; save bdb addr 


thus preventing other extends. 
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RE ATIVE SPECIFIC PUT Ig-SEP-1984 01:9 
RMS$PUT2 = HIGH LEVEL RELATIVE $PUT -SEP=19B84 16:24: 
B 59 
74 AA D1 8 6 CPL JFBSL_EBK(RI0) ,R6 : 
8 0 BB DECL R6 : 
70 AA «C2 «(00BD) O86 SUBL2 JEBSL_HBK (R10) ,R6 : 
67 16 00C 64 BLEQU 25 ; 
aie 
0c 8$ : Allocate a fib to do the extend. 
ge 
54 DD o¢ 70 PUSHL R4 : 
40 ef 9A 006 7 MOVZBL #FIB$C_LENGTH,R2 ; 
cess) gS eg RSE amagrsre | 
4C AA 5¢ OCF rh MOVZWL JEBSu_RTDEQ(R10) ,F 1BSL_EK 
08 88 0006 ih: BISB2 #FIBSM_ALDEF ,FIBSW_EXCTL( 
18 al D1 SODA A 2$: CPL F 1BSL_EXSZ (RI) ,R6 
86 DO OOrO | (379 OVL  R6,FIBSL_EXSZ(R1) ; 
O0E4 380 4$: 
a? 
OOE4 He : Do the extend. 
OOF. 38S 
20 A9 = 4 sCOES Ba CLRL —_—XIRB$L_CURBDB(R9) ; 
FF16* 30 QOE7 87 BSBW RMSEXTENDO_ALT ; 
2—E 50 £9 OOEA 388 BLBC _——RO, B$ ; 
at 
Baee 91 : If extend worked we can get rid of bdb 
BorD 808 | 
BE D5 OOED 394 TSTL (SP)+ 
Bore $08 ; 
OOEF 97 : Format the buckets (i.e., write zeroes 
OOEF 98 ; 
Sore 180 15$: 
38 86©€0 OOEF 401 J oo. #IFBSV_SEQFIL,(R10),78 ; 
FFOA' 30 OF 406 BSBW sa RMSFMT“BKT2 : 
of FO7" 30 Org 403 BBW RMSUPD~PROLOG2 : 
OFC 405 35: SCSHFLAGS * LOCK : 
44 A9 DO OOFF 4 6 $: OVL  IRBSL_CURVBN(R9),R1 ; 
FEFA’ 30 193 4 BSBW $RMSREADBKT ; 
FFOA 31 é 408 - BRW CHKE : 
6C AA 00 169 410 MOVL  IFBSL_LOCK_BDB(R10),R4 ; 
Ferg" 1 p 411 BSBW RMSSETHEBK ; 
4409 (C1 110 41g ADDL3 I RBS$L_CURVBN(R9) #1, IFBSL 
116 414 : 
116 415 SCSHFLAGS <LOCK,NOREAD> ; 
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still need 
branch if n 
adjust for hbk 

compute # of blocks needed 

branch if none (need only format) 


to extend eof? 
ot 


save 
size 
o allocate fib 
ranch on failure 
SZ(R1); set default extend size 
ranc f non-zero 
R1); flag maximize with vol. default 
is default > # blocks needed? 


lock bdb addr around calls 
of fib 


branch if yes 
no - use required extend size 


zero current bdb 
do extend and deallocate fib 
branch on error 


addr (r4) on top of stack. 


) and update prolog. 


if seq don't zero 
write zeroed blocks 
update prolog 

branch on error 
specify lock required 
set vbn 

go access bucket 

and try again 


restore r4 


updete eof 
_EBK(R10); jyst make ebk beyond block 


asked for if seq file. 


no need to read block if seq file. 


G 


| 
RE ATIVE SP sh Fl PUT Vg-s6-1986 01: 4:54 VAX/VMS Macro V04-00 Page 10 | 
RMS$PUT TEvEL L RELATIVE $PUT -SEP-1984 16:24:11 RMS.SRCIRM2PUT.MAR; 1 (4) 
e4 11 BRB 5$ ; try again 
: Error has occurred allocating a fib or extending the file. 
8$: 
18 A POPR #*M<R4> ; restore bdb addr oot Rettig 
Fee . 0 BSBW RMSRLSPLG : release lock on prote 
4 4 CLRL R4 ; don't release bd twite 
FFIC 1 10$ BRwW CLEAN1 ; clean up on error 


Another user has done an extend since we last checked the eof data 
(hard to believe he could sneak in that window, isn't it?) 


Therefore, our work is already done. We need merely unlock the prolog 
and go try our put again. 


| 

| 

FED8’ 30 208: BSBW RMSRLSPLG : unlock the prolo | 
D211 BRB 3$ 3 continue with pu 
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VIAN DS > SP \ YP OVMIMNNIWIWNNIIVIVNVOV WOWOwwwo 


jejelelelelejlelelelelelelelelelo! 


: File needs no extending, only formatting. 
ovo 258: ADDL3 #1, 1FB$L_HBK(R10) ,R6 ; set end vbn of extent + 1 
74 AA DO MOVL  IFBSL_EBR(R10),R1 ; and start vbn of extent 
BA 11 BRB 15$ ; go format buckets 
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~SBTTL RMSPUTUPD2 = COMMON SPUT AND SUPDATE RELATIVE ROUTINE 


;RMSPUTUPD2 =-- Common $PUT and SUPDATE Relative Routine. 

This routine: 

1. Saves r0 status code in r7. 

2. Verifies the rsz and rbf parameters, as well as rhb if rfm=vfc. 
3. Set the delete control byte to say record exists. 
4. Store record size unless rfm=fix. 
5. If rfm=vfc, copy the rhb to buffer. 
6. 


copy ¢ ye ewre to the buffer and set the valid and dirty 
buffer flags. 


Calling Sequence: 
BSBW RMSPUTUPD2 
Input Parameters: 
AP non 0 if called from 2 0D 0 if from $update 
R8-R11 same as for entry at rm$ put 
R5 address of record in bucket buffer 
R4 bdb address 
status code 
Implicit Inputs: 


The contents of the various control blocks, in particular: 


RABSW_RSZ record size 

RABSL_RBF record address 

RABSL_RHB record header buffer address if rfm=vfc 
IFBSB_RFM record format 

IFBSW_MRS maximum record length 

IFBSB_FS2 fixed header size if rfm=vfc 


Output Parameters: 


R7 status code 
RO-R3,R5,R6 destroyed 


Implicit Outputs: 
none. 
Completion Codes: 


Standard rms, in particular the code from r0 on input or rsz, rbf, 
or rhb. 


PWNS ODA UE WIN SO ODNAU EWN SO OD NA UNE WWI 0 OD NOA UE WIN - OOONOAUE Wino" OOD 


ae ea ee a a ed ed ed dd wd dd dd dd 
SOOOOCOOOO OO OOOO O00 09 00 09 09 09 09 09 09 SINISE NINN NIN NIAAA AAA AOAOMMIMIMIIMIUTUNIUN ES EO 
Se Se Se Se Se Ge Se Be Ge Ge Se Se Ge Se Ge Ge Ge Ge Se Ge Ge Ge Ge Se Ge Fe Ge Ge Se Se Ge Ge Se Ge Se Se Ge Ge Se Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se & 
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PYPUPVPV PV IV LV LUSPVPV IUD SPUSVSIUS USVI SUSU IIIT SUITS ISIS TSE SISSIES TASTY 
PVPS ES BS BS BB Be Be BB EPP P PPP 
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VOe-000 


RELATIVE 
RMSPUTUPD 


1 


1 
1 
1 
1 


PECIFIC PUT “> 
= COMMON SPUT AND SUPDATE REL 5-S 


3 


Side Effects: 
none. 


SEP=1984 


EP=1984 


' 


1:04:54 
6:24:11 


AX/VMS Macro V04-00 
RMS.SRCJRM2PUT.MAR; 1 
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RMSPUTUPD2 - COMMON SPUT AND SUPDATE REL -SEP-1984 16:24:11 RMS.SRCJRM2PUT.MAR; 1 (6) 
1 11 RMSPUTUPD2:: 
57 4h 1 1 MOVL RO,R7 3; copy status code 
06 00A0 CA EO 01 1 BBS #IFBS$V_BI,IFBSB_JNLFLG(R10) 58 : BI Journaling on? 
42 OOA2 CA £1 01 : 14 BBC WLEBSV_RUP, IFBSB_JNLFLG2 (R10) ,408 ; RUP? If no BI/RUP, skip this 
° 14 15 5$ PUSHR #*M<R4,R5> 3; save 
0124 166 316 BSBW = MAKEJNL ; set up Journal record | 
WS 14 1 TSTL AP ; doing T 
ge 1 148 18 BEQL 10$ 3; branch if update 
14 A6 048 8F B0 138 1 MOVW #RIRSC_RECLEN,BDBSW_NUMB(R6) ; don't write empty cell 
4 8 dO 1 0 10$: MOVL (SP),R 3; restore 
11 OOAO CA a 6 1 BBC #1FBSV_B1,1FBSB_JNLFLG(R10) ,208 ; branch if no B1 
3 ar 
43 ; BR 18 ? MOVZBL #CJF$_BI,-(SP) ; specif 981 
QO000000'EF 16 0161 534 JSB RMSWRTINE S write journal record 
5E 4 CO 0167 5 ADDL2 #8,SP ; discard arglist 
14 E9 O16A § BLBC RO, 30% ; get out on error 
OE OOA2 CA 02 al 0160 367 208: BBC #1FB8V_RUP, 1FBSB_JNLFLG2(R10) ,308: branch if not RUP 
3 ar 
7E  QO1 GA 8128 529 MOVZBL #CJFS$_RU,-(SP) 3; specif 981 
00000000'EF 16 0178 580 JSB RMSWRTJNL ; write journal record 
5E 8 CO OI7E : 1 ADDL2 8,SP ; discard arglist 
0 BA Ht 3 30$: POPR #*M<R4,R5> 
6D 50 =E9 He 237 BLBC RO,ERRJNL 3 get out on error 
56 ¢¢ AB 3C 0186 535 40S: MOvZWL RABSW_RSZ(RB) ,R6 ; get record size 
01 50 AA 91 O18A 536 CMPB FBSB-RFMORG(R10) ,MFABSC_FIX : rfm = fix? 
06 13 B1Se 537 BEQL 0 ; branch of yes 
56 60 AA Bi 019 538 CMPW IFBSW_MRS(R10) ,R6 ; record too long? 
1€ 0194 539 BGEQU§ 60$ 3; branch if ok 
0196 540 3 (else fall thru - will be checked 
56 60 AA B1 0196 541 50S: CMPW IFBSW_MRS(R10) ,R6 3 rsz = fixed record length? 
8 12 Ree 2¢8 BNEQ ERRRSZ ; branch if not 
03 6A 3 1 19¢ 435 608: BBC #IFBSV_SEQFIL, (R10) ,CHKVFC | 
0082 1 gay 544 BRW SAVR4S ; let's move record and be done 
03 50 AA 91 BIA 545 CHKVFC: CMPB IFB$B_RFMORG(R10) ,#FABSC_VFC 3 rfm = vfc? 
70.~—=—s 12 1A? —s_ 546 BNEQ SETCTC 3 branch if not 
ana 
B1A8 4 3; Record format is vfc. 
O19 339 ; Probe the record header buffer and copy to bucket. | 
1a9s553 * 
51 SF AA 9A OQ1A9 54 MOVZBL IFBS$B_FSZ(R10),R1 3; get fixed header size 
50 2C AB 00 OID 55 MOVL  RABSLRHB(R8) ,RO > get the rhb address 
0 13 0181 2 EQL 10$ ; Branch if none 
1B3 5 IFNORD R1,(RO),ERRRHB,IRB$B_MODE(R9); branch if not readable 
5 08 90 QI1BA 3 10$: Ove #DLCSM REC. (R5S+ ; ear record exists — 
85 1 56 Al 0O1BD 5 ADDW3 = =R6,R1,TR5)+ ; set rec length = fixed + var 
30 11 560 PUSHR #*M<R4,R5> : save R4, R 
D iS 61 TSTL 80 ; rhb speced? 
96 1 1C 6¢ EQL 208 ; branch if not 
65 60 1 #3 1C7 6 MOVC3 R1,(RO),(R5) 3; copy rhb 
OF 11 O1CB 564 RB 40$ 
16> 868 | 
1€D 89 ; Rhb = 0. Zero the header if doing $PUT, skip it if SUPDATE. | 
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RMSERR RHB,R7 
RSB 
RMSERR RSZ,R7 
RSB 

ERRRBF : 


RMSERR RBF,R7 
RSB 


MOVL RO,R7 
RSB 


LONG_PROBE : 
MOVL R6,RO 
MOVL R3.R1 


SUBL2 Re RO 
BGTR 1 


DPB DDPE DDD PDE DPD PED PPPS SVS VSS ISVS SIS ISIS ISIS ISIS 
| MQOOCOCOOCOCOCOCOCOOOOOO OO OCWWOWWOWOWOWOON NNN NNO Oe 
FWP COONAN WIN 0 OONO UNE WIN O OO NOU EW" OOONO UNS wn "OOo 


P),#0,R1,(R5) 


FIC PU 
OMMON $PUT AND SUPDATE REL 
208 TSTL = AP 
BNEG 30% 
ADDL2 81,5 
BRB 50§ 
308: MOVCS #9,(5 
40$: MOVL R3,R 
50$: BRB MOVREC 


ee. 


BRB MOVREC1 


4:54 VAX/VMS Macro v04-00 Page 
4:11 (CRMS.SRCIRM2PUT.MAR; 1 


doing $put? 
branch if yes 
skip over header 


zero the header 
update buffer address 
go move record 


; bad record header buffer 
; invalid record length 


; invalid record header buffer 


> Probe readability of all pages ( > 2) of user record. 


; copy buffer Length 
; aaa nearest . 


#-512,R2 : 
10S: IF NORD RQ, (RY) ,ERRRBF , IRBSB_MODE 
MOVAW (RO)CR27,RO 
BG 10$ 


set address constant 

R9); branch if not readable 
get address next page 
adjust remaining length 
loop if more to do 

need to handle last page? 
branch if yes 

rejoin main sequence 


] 
| 


ener) RELATIVE greciric PUT 16-SEP-1984 Ol: 4:54 VAX/VMS Macro v04-00 Page 15 
v04-000 RMSPUTUPD2 = COMMON SPUT AND SUPDATE REL 5-SEP-1984 16:24:11 RMS.SRCIRM2PUT.MAR; 1 (8) | 
13 ef | 
19 13 ; Set ‘record exists'’ into control byte, store the record size if var record | 
19 619 ; format, and move the record. 
19 631° | 
85 08 90 0219 6 g SETCTL: MOVB #DLCSM_REC,(R5)+ ; Say record exists 
02 SO AA 91 O21C 6 CMPB  —s IFB$B_RFMORG(R10) ,#FABSC_VAR; variable Len rfm? | 
3 i; 624 BNEQ SAVR45 3 branch if not 
85 66 «6B 625 MOVW R6,(R5)+ ; store record length 
: BB 6 § SAVR45: PUSHR #*M<R4,R5> ; save R4, R5 
53 28 8 3 ? 627 MOVREC: MOVAL @RABSL_RBF (RB) ,R3 : get buffer addr 
66 «6B B 628 TSTW R6 3 rsz = 0? 
OE 13 022d 629 BEQL MOVREC1 ; branch if_yes 
0200 8F 56 B81 O22F 630 CMPW a ; record > 2 pages in Length? 
C1 1A 8 4 631 BGTRU LONG PROBE ; branch if yes 
8 #6 ? § nova IF NORD R6, (R3) ,ERRRBF , IRB$B_MODE(R9) ; branch if not readable 
65 63 56 28 023d ore OVC3 R6,(R3),(R5) 3; move the record 
54 bE 00 0244 635 OVL (SP),R4 : restore R4 
OA AS 0 88 0244 636 BISB #BDB$M_VAL!BDBSM DRT,BDB$B FLGS(R4); say valid and dirty 
1C OOAO CA 03 «©E€1 «(0248 )~=— 637 BBC #1FBSV_AI,IFBSB_JNLFLG(R10),10$ ; branch if not Al journaling 
55 18 AG 4C A9 C1 O24E 638 ADOL3 IRBSL RP_OFF(R9Y,BDBSL_ADDR(R4) ,RS ; get cell address 
17 10 0254 639 BSBB MAKEJAL 3; set up journal record 
54 6€ DO 0256 640 MOVL (SP) ,R4 3; restore 
56 DD 0259 641 PUSHL R ; jBDB arg 
7E 03 9A 0g28 O46 MOVZBL #CJFS$_AI,-(SP) ; specify BI 
OOOOO000'"EF 16 O25E 64 JSB RMSWRTJNL 3 write lournst record 
5E 08 CO 0264 644 ADDL2 #8,SP ; discard arglist 
57 50 00 0267 645 MOVL RO,R7 3 set status code 
30 BA O026A 646 10S: POPR #*M<R4,RS> : restore R4, R5 
05 026C 647 20$: 
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D 649 ;++4 
4 631 3 Subroutine to construct journal entry 
6D 6 § ; 
60 653; Input: 
6D 654; R5 - Cell to journal 
6D 655; 
6D $28 3 Output: 
6D 657; R6 - Addr Py £ Joyrnet ing BDB 
6D 658; Destroys R1,R 
6D 659 ;-- 
6D 660 
6D 661 
026D 666 MAKEJNL: 
56 30 Ad =6D0 «60260 66 MOVL IRB$L_JNLBDB(R9) ,R6 ; oe journling B08 
52. 18 A600 8 71 += 664 MOVL BDB$L_ADDR(R6),R journLin buffer 
40 Ag 48 a9 = —00 75 665 MOVL IRBSL-RP(R9), RIRSL_R (R2) ste in relative record num 
03 a2 02 «(90 6 cA 666 MOVB  #RJRST_RECORD,RJRSB_ ENTRY. aul : RJR type 
8 43 208 ASSUME RJRS$B_OPER EQ RJR$B_ORG+1 
1301 8F BO 0 43 670 MOVW #<RIRS atte + RJRSC_REL>,- 
04 A2 028 671 RIRSB ORG > fill 10, file type & oper 
5¢ DS 0284 O76 TSTL 3; doing 
04 12 0286 67 BNEQ 10s 3: branch ree 
05 A2 1C «90 0288 674 MOVB #RIRS_UPDATE ,RJRSB_OPER(R2) ; indicate SUPDATE 
46 A2 62 A9 BO O28C 675 10S: MOVW IRB$W~CSIZ(R9) ,RIRSW RSIZE(R2) ; set cell size 
0048 8F 62 A9 Al 0291 676 ADDW3 IRBSW_CSIZ(R9) ,ARIJRST_RECLEN,- ; 
14 A6 0297 677 BOBSW_NUMB(R6) ; set journal record size 
65 62 A9 28 0595 678 MOVC3 IRB$W_CSIZ(R9) ,(R5),- ; 
48 A2 0290 679 RJR$T RIMAGE (R2) : copy entire cell 
05 O29F 680 RSB 
02A0 681 
02A0 682 ~ END 
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RM2PUT RELATIVE SPECIFIC PUT a oe i ae 9 9): 4:54 VAX/ 
Symbol table -SEP=1984 16:24:11 (CRMS 
$$.PSECT_EP = 0000000 IRBSL_RP_OFF = 0000004C 
$$. TMP = 00 03 IRBSV_UNCOCK_RP = 6 20925 
SSRMSTEST = : A IRBSW_CS1Z = 00000 9 
SSRMS_PBUGCHK . 8 LOCK 0 BR0 
SSRMS_TBUGCHK = 44 LONG_PROBE Q0001F7 
SSRMS_UMODE = 448 4 MAKE JNL BA O85 D 
DBSB_FLGS = QQO00000A MOVREC 0000227 
BDBSL_ADDR - BS po eS MOVREC1 000023D 
BDBSM_DRT = 0000 8 PIOSA_TRACE eeeeeeee 
BOBSM_VAL = 4444 1 RABSB_ = QOOOOOTE 
BOBSW_NUMB = 00000014 RABS$C_SEQ = 00000000 
KCTC 4 4 R 81 RABSL_RBF = BR ORNs e 
CHKEOF QOOO0A1 R 1 RABSL_RHB = 0000002C 
CHKERR 00000013 R 01 RABSL_ROP = 00000004 
CHKLCK 00000056 R 01 RABSV_UIF = 00000004 
CHKVFC a R 01 RABSV_ULK = 00000012 
CJFS_AI = 0000000 RABSW_RSZ = 00000022 
CJF$~B1 = 00000002 RURSB-ENTRY_TYPE = 90000003 
CJFS_RU = 00000001 RJRS$B_OPER = 00000005 
CLEAN} 00000041 R 01 RJRS$B_ORG = 00000004 
CLEAN2 00000048 R 01 RJRSC_RECLEN = 00000048 
CSHSM_LOCK = 00000001 RJRSC_RECORD = 00000002 
CSHSM_NOBUF FER = 00000008 RJRSC_REL = 00000001 
CSHSM_NOREA’ = 00000004 RJRSL_RRN = 00000040 
DLCSM_REC = oa eed RJR$T_RIMAGE = 00000048 
ERRJN QOOOOI1FS R 01 RJRSW_RSIZE = 00000046 
ERRRBF OOOOOIED R 01 RJR$_PUT = 00000013 
ERRREX 0000009A R 01 RJR$_UPDATE = 0000001C 
RRRHB OOOO01E1 R 01 RMSCCN2 PU teenteee 
ERRRSZ 000001E7 R 01 RMSEXTENDO ALT eeeeeeee 
FABSC_F IX = 00000001 RMSFMT_BKT eekeeene 
FABSC_VAR = 44 44 04 RM$GETREC2_PUT aeeneene 
FABSC_VFC = 0000000 ETSPC1 eeekeeee 
F IBSC_LENGTH = 00000040 RMSLOCK reeeeeee 
F IBSL_EXSZ = 00000018 RMSLOCK_PROLOG eererees 
F IBSM_ALDEF = 00000008 RMSPUT2 00000000 
F IBSW_LEXCTL = 00000016 RMSPUTUPD2 00000135 
IFBSB_FSZ = 0000005F RMSQUERY LCK teeenene 
IFBSB_JNLFLG = 000000A0 RMSREADBRT2 aeeeneee 
IFBSB_JNLFLG2 = 000000A2 RMS$RLS2 teeeneee 
IF B$B_RFMORG = 00000050 RMSRLSPLG teeennee 
IFBSL_EBK = sais te RMSSETHEBK teeeeene 
IFBSL_HBK = 00000070 RMSUNLOCK eeeeneee 
IFBSL_LOCK_BDB = 444 4 RMSUPD_PROLOG2 seannnee 
IFBSV_Ai = 00000 RMSWRTINL teeerene 
IFBSV_BI = BoOnOo SS RMS$_E = 0001827A 
IF BSV_NORECLK = 444 RMS$_OK_RLK = 00018021 
IFBSV_RUP = 44 4 T4 RMS$_OK WAT = 00018061 
IFBSV_SEQFIL = 000000 S$_RBF = 00018654 
IF BSW_MRS = 4443 RMS$_REX = 000182A2 
IFBSW_RTDEQ = 0004C RMS$_RHB = 0001866C 
IRB$B_MODE = Q000000A RMS$_RLK = 9 Fay 
IRBSL_CURBDB - i448 20 RMS$_RSZ = 000186A4 
IRBSL_CURVBN = 00 44 P = Bo aSe 
IRBSL_JNLBDB = 00000030 SAVR45 0 B85 5 
IRBSL_NRP = 4444 4p SETCTL 0000219 
IRB$L_RP = 00000048 TPTSL_PUT2 eeeeneee 
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been cree cece ceeas + 


! Psect synopsis ! 


pee eon aa an em sos eee $ 


PSECT name Allocation PSECT No. Attributes 


The working set Limit was 1650 pages. ; 

79795 bytes (156 pages) of virtual memory were used to buffer the intermediate code. 

There were 80 pages of symbol table space allocated to hold 1482 non-local and 35 local symbols. 
682 source Lines were read in Pass 1, producing 15 object records in Pass 2 

27 pages of virtual memory were used to define 26 macros. 


$ececcceccececceccescoecess} 


! Macro Library statistics : 
bee eee ee eee ee ee em tn ee ew ew eee 


Macro Library name Macros defined 
_$255$DUA28: Oe O84 Ins 8s 15 
_$255$DUA28: (SYS.OBJJLIB.MLB; 1 1 
$255$DUA28: (SYSLIBISTARLET.MLB;2 § 
TOTALS (all Libraries) 2 


1603 GETS were required to define 22 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RM2PUT/OBJ=OBJ$:RM2PUT MSRC$:RM2PUT/UPDATE=(ENHS$:RM2PUT) ¢EXECMLS/LIB+LIB$:RMS/LIB 


NORD NOWRT NOVEC BYTE 
RD NOWRT NOVEC BYTE 
RD WRT NOVEC BYTE 


- ABS. 88 4 ( > 9 ( 9. NOPIC USR CON ABS LCL NOSHR NO 

RMSRMS2 O0002A0 ( 672.) 01 ¢ 1.) PIC USR CON’ REL GBL NOSHR 

SABSS 0000000 ( -)» 02 ¢ 2.) NOPIC USR CON ABS LCL N 
junssesavouesueseeanssene 
! Performance indicators : 

Phase Page faults CPU Time Elapsed Time 

Initialization 38 00 +00: 00.08 98:00:00. 5 

beareyt rors Ug SBR) Bao 

Syabol table sort 139 00:88:98: 88 00:00:05.97 

ass :00:02. :00:09. 

Symbol table output 13 09:00:0 43 00:00:00.13 

Psect synopsis output 2 0:00:00.0 00:00:00.02 

Cross-reference output ° 00:00:00.00 et Bet 

Assembler run totals 68 00:00:19.96 00:01:03.1 


RM2 
VO4 


